home *** CD-ROM | disk | FTP | other *** search
/ Chip 2005 May / CMCD0505.ISO / Software / Demo / DesktopX / objects / Rubicon_meters.dxpack / {74AEC095-A0B3-4736-83C1-B3A0A3A2F8F4}.DXScript2 < prev    next >
Extensible Markup Language  |  2004-01-29  |  2KB  |  36 lines
  1. <?xml version="1.0"?>
  2. <!--DXScript Data File.  Version 2.0-->
  3. <DXScript>
  4.     <Script><![CDATA['Called when the script is executed
  5. Sub Object_OnScriptEnter
  6.     If IsEmpty(Object.PersistStorage("desktopmode")) Then
  7.         Object.PersistStorage("desktopmode")="no"
  8.         DesktopX.ScriptObject("R_meters_shuffler").Object.State="normal"
  9.         DesktopX.Object("R_metersback").State="normal"
  10.     ElseIf Object.PersistStorage("desktopmode")="yes" Then
  11.         DesktopX.ScriptObject("R_meters_shuffler").Object.State="desktop"
  12.         DesktopX.Object("R_metersback").State="desktop"
  13.     Else
  14.         DesktopX.ScriptObject("R_meters_shuffler").Object.State="normal"
  15.         DesktopX.Object("R_metersback").State="normal"
  16.     End If
  17. End Sub
  18. Sub Object_OnStateChange(state)
  19.     If State = "Command executed" Then
  20.         If DesktopX.ScriptObject("R_meters_shuffler").Object.State="normal" Then
  21.             DesktopX.ScriptObject("R_meters_shuffler").Object.State="desktop"
  22.             DesktopX.Object("R_metersback").State="desktop"
  23.             Object.PersistStorage("desktopmode")="yes"
  24.         Else
  25.             DesktopX.ScriptObject("R_meters_shuffler").Object.State="normal"
  26.             DesktopX.Object("R_metersback").State="normal"
  27.             Object.PersistStorage("desktopmode")="no"
  28.         End If
  29.     End If
  30. End Sub
  31. 'Called when the script is terminated
  32. Sub Object_OnScriptExit
  33.  
  34. End Sub
  35. ]]></Script><Globals><Editor><PropPane>0</PropPane><EditorLeft>464</EditorLeft><EditorTop>166</EditorTop><EditorRight>1247</EditorRight><EditorBottom>860</EditorBottom></Editor><Object><LanguageCLSID>{B54F3741-5B07-11CF-A4B0-00AA004A55E8}</LanguageCLSID><ControlCLSID>{00000000-0000-0000-0000-000000000000}</ControlCLSID><ControlObjWidth>64</ControlObjWidth><ControlObjHeight>64</ControlObjHeight><RunState>1</RunState><ScriptHostVersion>2</ScriptHostVersion></Object></Globals></DXScript>
  36.